10 DIM M%(26)
51000 REM BEFEHLSZERLEGUNG-CODIERUNG -------------------------------------------
51001 :
51010 VG$="NIMM":VG=1012
51020 REM M$-TABELLE ANLEGEN ---------
51040 FORI=1TO26:M%(I)=LEN(VG$):NEXTI
51050 FORI=1TOLEN(VG$):M%(ASC(MID$(VG$,I,1))-64)=LEN(VG$)-I:NEXTI
51052 FORI=1TOLEN(VG$):PRINTMID$(VG$,I,1),M%(ASC(MID$(VG$,I,1))-64):NEXTI
51060 REM VG$ IN BE$ SUCHEN ----------
51065 PRINT"[147] ";BE$
51070 PO=1
51080 FORI=1TOPO:PRINT" ";:NEXTI:PRINTVG$
51085 IFVG$=MID$(BE$,PO,LEN(VG$))THENPRINT"GEFUNDEN !":END
51090 FORI=LEN(VG$)TO1STEP-1
51095 :IFMID$(BE$,PO+I,1)=""THENPRINT"NICHT GEFUNDEN!":END
51105 :IFMID$(VG$,I,1)=MID$(BE$,PO+I-1,1)THEN51120
51109 :IFASC(MID$(BE$,PO+I-1,1))=32THENPO=PO+LEN(VG$):I=0:GOTO51120
51110 :PO=PO+M%(ASC(MID$(BE$,PO+I-1,1))-64)+LEN(VG$)-I:I=0
51120 NEXTI
51130 GOTO51080